(dabbrev-expand): Delete a search-forward call

after the second replace-match.

diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el
index 0798b764c2bee8bf8bf91241f88a5ff1f3ee4284..db5fcacd0777606e7b10955981bcf69be083b741 100644 (file)
--- a/lisp/dabbrev.el
+++ b/lisp/dabbrev.el
@@ -186,7 +186,9 @@ with the next possible expansion not yet tried."
        ;; case pattern.
        (save-excursion
          (replace-match abbrev t 'literal))
-       (search-forward abbrev)
+;;; This used to be necessary, but no longer, 
+;;; because now point is preserved correctly above.
+;;;    (search-forward abbrev)
        (replace-match (if do-case (downcase expansion) expansion)
                       (not do-case)
                       'literal))